#!/usr/bin/perl -w


while(<>) {
    chomp;
    if(/\[([a-zA-Z].*)\]$/) {
        print $1."\n";
       }
}
